object EraseForm: TEraseForm
  Left = 394
  Top = 164
  ActiveControl = CloseButton
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  BorderWidth = 5
  Caption = 'Erase'
  ClientHeight = 124
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DriveGroupBox: TGroupBox
    Left = 0
    Top = 0
    Width = 321
    Height = 45
    Caption = ' Drive: '
    TabOrder = 0
    DesignSize = (
      321
      45)
    object DriveComboBox: TComboBox
      Left = 8
      Top = 16
      Width = 305
      Height = 21
      Style = csDropDownList
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
      TabOrder = 0
      OnDropDown = DriveComboBoxDropDown
      OnSelect = DriveComboBoxSelect
    end
  end
  object SpeedGroupBox: TGroupBox
    Left = 328
    Top = 0
    Width = 89
    Height = 45
    Caption = ' Speed: '
    TabOrder = 1
    DesignSize = (
      89
      45)
    object SpeedComboBox: TComboBox
      Left = 8
      Top = 16
      Width = 73
      Height = 21
      Style = csDropDownList
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
      TabOrder = 0
      OnDropDown = SpeedComboBoxDropDown
      OnSelect = SpeedComboBoxSelect
    end
  end
  object FullEraseButton: TButton
    Left = 336
    Top = 97
    Width = 75
    Height = 25
    Action = FullEraseAction
    TabOrder = 2
  end
  object QuickEraseButton: TButton
    Left = 248
    Top = 97
    Width = 75
    Height = 25
    Action = QuickEraseAction
    TabOrder = 3
  end
  object CloseButton: TButton
    Left = 160
    Top = 97
    Width = 75
    Height = 25
    Action = CloseAction
    TabOrder = 4
  end
  object ProgressGroupBox: TGroupBox
    Left = 0
    Top = 48
    Width = 417
    Height = 39
    Caption = ' Erase progress: '
    TabOrder = 5
    object ProgressBar: TProgressBar
      Left = 8
      Top = 16
      Width = 401
      Height = 15
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
  object MCDBurner: TMCDBurner
    DeviceBufferSize = 0
    DeviceFreeBufferSize = 0
    UnderrunProtection = True
    OnDeviceChange = MCDBurnerDeviceChange
    OnEraseDone = MCDBurnerEraseDone
    ReadSpeed = 0
    WriteSpeed = 0
    FinalizeDisc = False
    TestWrite = False
    ReplaceFile = False
    PerformOPC = False
    CacheSize = 4194304
    Version = '1.21'
    WritePostGap = True
    Top = 96
  end
  object ActionList: TActionList
    Left = 32
    Top = 96
    object CloseAction: TAction
      Caption = 'Close'
      OnExecute = CloseActionExecute
      OnUpdate = CloseActionUpdate
    end
    object QuickEraseAction: TAction
      Caption = 'Quick Erase'
      OnExecute = QuickEraseActionExecute
      OnUpdate = QuickEraseActionUpdate
    end
    object FullEraseAction: TAction
      Caption = 'Full Erase'
      OnExecute = QuickEraseActionExecute
      OnUpdate = QuickEraseActionUpdate
    end
  end
  object Timer: TTimer
    Interval = 500
    OnTimer = TimerTimer
    Left = 64
    Top = 96
  end
  object smlFormLangRes: TsmlFormLangRes
    LangFileName = 'DefLang.ini'
    IgnoreEmptyString = False
    AutoCreateMode = True
    AddBracket = True
    StringProperties.Strings = (
      'Caption')
    StringsProperties.Strings = (
      'Tabs'
      'Items')
    IgnoreControls.Strings = (
      'ProgressBar'
      'DriveComboBox'
      'SpeedComboBox'
      'FullEraseButton'
      'QuickEraseButton'
      'CloseButton'
      'MCDBurner'
      'ActionList'
      '')
    IgnoreFormCaption = False
    IncludeListViewItems = False
    IncludeListViewHead = False
    IncludeTreeViewItems = False
    Active = False
    Left = 96
    Top = 96
  end
  object smlMsgLangRes: TsmlMsgLangRes
    LangFileName = 'DefLang.ini'
    IgnoreEmptyString = True
    AutoCreateMode = True
    AddBracket = True
    MsgList.Strings = (
      'Error=Error'
      'Str1=Medium erase error'
      'Str2=Drive not ready'
      'Str3=Medium in drive is not eraseable'
      'Str4=Can'#39't erase medium'
      'Str5=--= Initializing, please wait =--'
      'Str6=ASPI initialization error'
      'Str7=Drives not found'
      'Str8=This drive is not capable of erasing data')
    Active = False
    Left = 128
    Top = 96
  end
end